Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}','\\', '|', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '', '',
   '', '', '', '', '', '');

Define WidthList
 (  15,  14,  14,  16,  13,  12,  15,  16,  10,  11,  15,  12,  18,  16,  16,  14,
    16,  15,  14,  13,  15,  15,  21,  15,  14,  13,  13,  13,  11,  13,  13,   8,
    13,  14,   7,   8,  13,   7,  20,  14,  13,  13,  13,   9,  11,   9,  14,  12,
    19,  13,  12,  11,  14,  14,  14,  14,  14,  14,  14,  14,  14,  14,  16,  14,
     8,  18,  16,  14,  24,  16,  21,  14,  10,  10,   9,  14,  16,  16,  10,  14,
    10,  14,  13,  10,   8,   8,   6,  11,   7,  16,   7,  16,  13,  12,   8,  14,
    14,  14,  14,  18,  18,  12);

Define RectList
 ( (   0,  0, 15, 23), (  15,  0, 11, 23), (  26,  0, 12, 23), (  38,  0, 13, 23),
   (  51,  0, 10, 23), (  61,  0,  9, 23), (  70,  0, 13, 23), (  83,  0, 12, 23),
   (  95,  0,  8, 23), ( 103,  0,  9, 23), ( 112,  0, 13, 23), ( 125,  0, 10, 23),
   ( 135,  0, 14, 23), ( 149,  0, 12, 23), ( 161,  0, 14, 23), ( 175,  0, 11, 23),
   ( 186,  0, 14, 23), ( 200,  0, 13, 23), ( 213,  0, 12, 23), ( 225,  0, 12, 23),
   ( 237,  0, 11, 23), ( 248,  0, 15, 23), ( 263,  0, 19, 23), ( 282,  0, 15, 23),
   ( 297,  0, 14, 23), ( 311,  0, 11, 23), ( 322,  0, 10, 23), ( 332,  0, 10, 23),
   ( 342,  0,  9, 23), ( 351,  0, 10, 23), ( 361,  0, 11, 23), ( 372,  0,  7, 23),
   ( 379,  0, 10, 23), ( 389,  0, 10, 23), ( 399,  0,  4, 23), ( 403,  0,  7, 23),
   ( 410,  0, 11, 23), ( 421,  0,  4, 23), ( 425,  0, 16, 23), ( 441,  0, 10, 23),
   ( 451,  0, 11, 23), ( 462,  0, 10, 23), ( 472,  0, 10, 23), ( 482,  0,  7, 23),
   ( 489,  0,  9, 23), ( 498,  0,  8, 23), ( 506,  0, 10, 23), ( 516,  0, 12, 23),
   ( 528,  0, 19, 23), ( 547,  0, 13, 23), ( 560,  0, 12, 23), ( 572,  0,  9, 23),
   ( 581,  0, 12, 23), ( 593,  0, 10, 23), ( 603,  0, 11, 23), ( 614,  0, 12, 23),
   ( 626,  0, 12, 23), ( 638,  0, 11, 23), ( 649,  0, 12, 23), ( 661,  0, 12, 23),
   ( 673,  0, 12, 23), ( 685,  0, 12, 23), ( 697,  0, 14, 23), ( 711,  0,  6, 23),
   ( 717,  0,  4, 23), ( 721,  0, 16, 23), ( 737,  0, 14, 23), ( 751,  0, 12, 23),
   ( 763,  0, 22, 23), ( 785,  0, 13, 23), ( 798,  0, 15, 23), ( 813,  0, 10, 23),
   ( 823,  0,  7, 23), ( 830,  0,  7, 23), ( 837,  0,  7, 23), ( 844,  0, 14, 23),
   ( 858,  0, 12, 23), ( 870,  0, 13, 23), ( 883,  0,  6, 23), ( 889,  0, 10, 23),
   ( 899,  0,  6, 23), ( 905,  0, 10, 23), ( 915,  0, 10, 23), ( 925,  0,  3, 23),
   ( 928,  0,  5, 23), ( 933,  0,  4, 23), ( 937,  0,  3, 23), ( 940,  0,  8, 23),
   ( 948,  0,  5, 23), ( 953,  0, 12, 23), ( 965,  0,  4, 23), ( 969,  0, 12, 23),
   ( 981,  0, 10, 23), ( 991,  0, 10, 23), (1001,  0,  4, 23), (1005,  0, 10, 23),
   (1015,  0, 12, 23), (1027,  0, 14, 23), (1041,  0, 12, 23), (1053,  0, 16, 23),
   (1069,  0, 16, 23), (1085,  0, 10, 23));

Define OffsetList
 ( ( 0, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 0, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   ( 0, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0),
   ( 1, 0), ( 2, 0), ( 2, 0), (-1, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 0, 0),
   ( 0, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 2, 0), ( 1, 0),
   ( 1, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 3, 0),
   ( 2, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0),
   ( 2, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 1, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 4, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 0, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 2, 0), ( 2, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 1, 0));

CreateLayer          Main;
LayerSetImage        Main '../fonts/Verdana14Bold';
LayerSetAscent       Main 19;
LayerSetCharWidths   Main CharList WidthList;
LayerSetCharWidths   Main (' ') (7);
LayerSetImageMap     Main CharList RectList;
LayerSetCharOffsets  Main CharList OffsetList;
LayerSetPointSize    Main 14;

SetDefaultPointSize  14;
